﻿Public Class People
    Inherits SystemCollection(Of Person)

    Private WithEvents _oPerson As Person

    Protected Overrides Function AddNewCore() As Object

        Dim _oPerson As New Person
        _oPerson.Name = "New Contact"
        _oPerson.Telephone = ""
        Add(_oPerson)

        MyBase.OnAddingNew(New System.ComponentModel.AddingNewEventArgs(_oPerson))

        Return _oPerson

    End Function

    Private Sub _oPerson_PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles _oPerson.PropertyChanged


    End Sub
End Class
